home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 44
/
Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso
/
+system+
/
tools
/
expert
/
devguide
/
myconvert.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1999-01-25
|
1KB
|
33 lines
/*************************************************
* myConvert.rexx to split check1 to System dir *
* V1.2 © Heiko Schröder 10/98 *
*************************************************
* *
* 1.2 - kontrolliert auch ..._020 usw *
* 1.1 - Bug behoben, wenn kein Version String *
* gefunden wurde *
* 1.0 - erstes Release, um auch Files die nicht *
* im Systempfad liegen, checken zu können *
*************************************************/
Parse ARG temp
check1=temp; tempo=temp
Trennung=max(index(tempo,":"),lastpos("/",tempo))
tempo=Delstr(tempo,1,Trennung)
/* Version abschneiden, wenn nicht, dann "no_versionstring" hinzu */
pos1 =lastpos(" ",tempo)
If pos1~=0 then check1=Delstr(tempo,pos1)
else do
temp =temp||" no_versionstring"
address command '"SetEnv" check1='temp
check1=tempo
end
poss=pos(".device",check1)
check1=Left(check1,poss+6)
address command '"SetEnv" file='check1
address command '"SetEnv" checktemp1='temp
Exit